Windows 6-Pak - Disc 6/Windows 6-Pak (InfoMagic) (Disc 6) (1999).ISO/Disk-Repair-Utilities/PRINTDIR.ZIP/_SETUP.1/PrintDirect.exe/0/RCDATA/TFORM1/TFORM1.txt

Text File | 1998-05-22 | 10KB | 430 lines

object Form1: TForm1
  Left = 200
  Top = 33
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'PrintDirect'
  ClientHeight = 364
  ClientWidth = 218
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Menu = MainMenu
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 0
    Width = 48
    Height = 13
    Caption = 'File &Mask:'
    FocusControl = ebMask
  end
  object RZDirectoryListBox: TRzDirectoryListBox
    Left = 8
    Top = 36
    Width = 201
    Height = 117
    Hint = '|Select directory to process.'
    HelpContext = 5
    Color = clWhite
    ItemHeight = 17
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
  end
  object RzDriveComboBox: TRzDriveComboBox
    Left = 8
    Top = 156
    Width = 201
    Height = 22
    Hint = '|Select drive to process.'
    HelpContext = 14
    DirList = RZDirectoryListBox
    TabOrder = 2
  end
  object btnProcess: TBitBtn
    Left = 71
    Top = 316
    Width = 75
    Height = 25
    Hint = '|Process the selected directory.'
    HelpContext = 11
    Caption = '&Process'
    TabOrder = 4
    OnClick = btnProcessClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
      00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
      8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
      8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
      8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
      03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
      03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
      33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
      33333337FFFF7733333333300000033333333337777773333333}
    NumGlyphs = 2
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 345
    Width = 218
    Height = 19
    Panels = <
      item
        Width = 50
      end>
    ParentShowHint = False
    ShowHint = False
    SimplePanel = False
    SizeGrip = False
  end
  object ebMask: TEdit
    Left = 8
    Top = 12
    Width = 201
    Height = 21
    Hint = '|Enter file mask.'
    HelpContext = 4
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    Text = '*.*'
  end
  object PageControl: TPageControl
    Left = 8
    Top = 180
    Width = 201
    Height = 121
    ActivePage = FieldsSheet
    TabOrder = 3
    TabPosition = tpBottom
    object FieldsSheet: TTabSheet
      Hint = '|Select the fields to display.'
      HelpContext = 6
      Caption = 'Fields'
      object cbFileName: TCheckBox
        Tag = 1
        Left = 9
        Top = 6
        Width = 75
        Height = 17
        Caption = '&Filename'
        TabOrder = 0
      end
      object cbFileDate: TCheckBox
        Tag = 2
        Left = 9
        Top = 22
        Width = 75
        Height = 17
        Caption = '&Date'
        TabOrder = 1
      end
      object cbFileTime: TCheckBox
        Tag = 4
        Left = 9
        Top = 38
        Width = 75
        Height = 17
        Caption = 'Tim&e'
        TabOrder = 2
      end
      object cbAttrib: TCheckBox
        Tag = 8
        Left = 9
        Top = 54
        Width = 75
        Height = 17
        Caption = '&Attributes'
        TabOrder = 3
      end
      object cbLevel: TCheckBox
        Tag = 32
        Left = 93
        Top = 6
        Width = 90
        Height = 17
        Caption = '&Level'
        TabOrder = 5
      end
      object cbPath: TCheckBox
        Tag = 64
        Left = 93
        Top = 22
        Width = 90
        Height = 17
        Caption = 'Pa&th'
        TabOrder = 6
      end
      object cbCdate: TCheckBox
        Tag = 128
        Left = 93
        Top = 38
        Width = 90
        Height = 17
        Caption = '&Creation Date'
        TabOrder = 7
      end
      object cbCTime: TCheckBox
        Tag = 256
        Left = 93
        Top = 54
        Width = 90
        Height = 17
        Caption = 'Creation Ti&me'
        TabOrder = 8
      end
      object cbSize: TCheckBox
        Tag = 16
        Left = 9
        Top = 70
        Width = 75
        Height = 17
        Caption = '&Size'
        TabOrder = 4
      end
    end
    object ExcludeSheet: TTabSheet
      Hint = '|Set exclusion options.'
      HelpContext = 9
      Caption = 'Exclude'
      object Bevel1: TBevel
        Left = 9
        Top = 48
        Width = 175
        Height = 13
        Shape = bsBottomLine
      end
      object cbArchive: TCheckBox
        Tag = 1
        Left = 9
        Top = 6
        Width = 75
        Height = 17
        Caption = '&Archive'
        TabOrder = 0
      end
      object cbHidden: TCheckBox
        Tag = 2
        Left = 9
        Top = 22
        Width = 75
        Height = 17
        Caption = 'Hid&den'
        TabOrder = 1
      end
      object cbReadOnly: TCheckBox
        Tag = 4
        Left = 9
        Top = 38
        Width = 75
        Height = 17
        Caption = '&Read-only'
        TabOrder = 2
      end
      object cbSystem: TCheckBox
        Tag = 16
        Left = 93
        Top = 22
        Width = 75
        Height = 17
        Caption = '&System'
        TabOrder = 4
      end
      object cbDirectory: TCheckBox
        Tag = 8
        Left = 93
        Top = 6
        Width = 75
        Height = 17
        Caption = '&Directory'
        TabOrder = 3
      end
      object cbPSD: TCheckBox
        Tag = 64
        Left = 9
        Top = 64
        Width = 161
        Height = 17
        Caption = 'Pro&cess Subdirectories'
        TabOrder = 6
      end
      object cbNA: TCheckBox
        Tag = 32
        Left = 93
        Top = 38
        Width = 75
        Height = 17
        Caption = '&Non-attrib'
        TabOrder = 5
      end
    end
    object TabSheet1: TTabSheet
      Hint = '|Output sort order.'
      Caption = 'Sort'
      object rbDate: TRadioButton
        Tag = 4
        Left = 9
        Top = 38
        Width = 90
        Height = 17
        Caption = '&Date'
        TabOrder = 0
      end
      object rbCDate: TRadioButton
        Tag = 8
        Left = 9
        Top = 54
        Width = 90
        Height = 17
        Caption = '&Creation Date'
        TabOrder = 1
      end
      object rbName: TRadioButton
        Tag = 1
        Left = 9
        Top = 6
        Width = 90
        Height = 17
        Caption = 'Na&me'
        TabOrder = 2
      end
      object rbSize: TRadioButton
        Tag = 2
        Left = 9
        Top = 22
        Width = 90
        Height = 17
        Caption = '&Size'
        TabOrder = 3
      end
      object rbTime: TRadioButton
        Tag = 16
        Left = 84
        Top = 6
        Width = 90
        Height = 17
        Caption = '&Time'
        TabOrder = 4
      end
      object rbCTime: TRadioButton
        Tag = 32
        Left = 84
        Top = 22
        Width = 90
        Height = 17
        Caption = 'Creation Time'
        TabOrder = 5
      end
    end
  end
  object Button1: TButton
    Left = 128
    Top = 4
    Width = 75
    Height = 25
    Caption = 'Del Reg'
    Enabled = False
    TabOrder = 6
    Visible = False
    OnClick = Button1Click
  end
  object MainMenu: TMainMenu
    Left = 12
    Top = 308
    object Options1: TMenuItem
      Caption = '&Options'
      object Processmenuitem: TMenuItem
        Caption = '&Process...'
        ShortCut = 32848
        OnClick = btnProcessClick
      end
      object PrintSetup1: TMenuItem
        Caption = 'Printer &Setup'
        OnClick = PrintSetup1Click
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object SaveonExit: TMenuItem
        Caption = 'Save on Exit'
        Checked = True
        Hint = '|Check to save preferences on exit.'
        OnClick = SaveonExitClick
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object ExitMenuItem: TMenuItem
        Caption = 'E&xit'
        Hint = '|Exit the application.'
        ShortCut = 32856
        OnClick = ExitMenuItemClick
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      Hint = '|Help topics.'
      object Contents1: TMenuItem
        Caption = '&Contents'
        Hint = '|Display help contents.'
        ShortCut = 112
        OnClick = Contents1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object BPTechnologies1: TMenuItem
        Caption = '&B&&P Technologies'
        Hint = '|Visit B&P Technologies on the web.'
        OnClick = BPTechnologies1Click
      end
      object RegisterPrintDirect: TMenuItem
        Caption = '&Register PrintDirect'
        Hint = '|Register PrintDirect Online.'
        OnClick = RegisterPrintDirectClick
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object About1: TMenuItem
        Caption = '&About...'
        Hint = '|Display product information.'
        OnClick = About1Click
      end
    end
  end
  object PrinterSetup: TPrinterSetupDialog
    Left = 172
    Top = 320
  end
  object RtRegControl1: TRtRegControl
    EncodeKey = 'ILVMD'
    GenKind = gkTripleDes
    SaveFileName = 'pdmd.386'
    SafeFileName = 'HKEY_CLASSES_ROOT\PDL'
    SaveKind = skIni
    SafeKind = skDef
    PCKey = False
    ProductKey = 'YTGU6W'
    BaseKey = 'PDM98'
    OnRegister = RtRegControl1Register
    OnStartDateLock = RtRegControl1StartCountLock
    OnEndDateLock = RtRegControl1EndCountLock
    Left = 172
    Top = 288
    Data = {0552545245473C94050140EB9800E33632419CEB98002C}
  end
end